in.dir = '/home1/99/jc152199/MicroclimateStatisticalDownscale/250mASCII/RealizedRadiation2'

tfiles = list.files(in.dir)

years = unique(substr(tfiles,9,12))

yoi = years[3:16]

out = NULL

for (tyear in yoi)

	{
	
	tt = tfiles[which(substr(tfiles,9,12)==tyear)]
	
	out1 = cbind(tyear, length(tt))
	
	out = rbind(out,out1)
	
	}
	
# Done
	
	